home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / educat.arc / ALPHABYT.BAS next >
BASIC Source File  |  1986-06-20  |  3KB  |  91 lines
  1. 2 REM --TWO--------ALPHABETICAL ORDER------------------------------
  2. 10 REM ------------K.WEST (8/10/84)--------------------------------
  3. 20 REM This program will be used to give students practice in alphabetizing
  4. 30 REM words from the South Carolina Basic Skills Word List.
  5. 45 DIM WORD$(350)
  6. 50 KEY OFF
  7. 60 SCREEN 0
  8. 70 WIDTH 80
  9. 80 COLOR 15,1,1
  10. 90 CLS
  11. 100 LOCATE 9,30:PRINT "What is your name?"
  12. 110 COLOR 12:LOCATE 11,34:INPUT " ",N$
  13. 120 LN$=LEFT$(N$,1):LN=ASC(LN$):IF LN>=97 AND LN<=122 THEN LN=LN-32:LN$=CHR$(LN):XN=LEN(N$):N$=LN$+RIGHT$(N$,XN-1)
  14. 130 PRINT:PRINT:PRINT:PRINT
  15. 140 PRINT TAB(21) N$;:COLOR 15:PRINT;", you will need paper and pencil."
  16. 150 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
  17. 155 TONE=TIMER
  18. 160 COLOR 14:PRINT TAB(26) "PRESS SPACE BAR WHEN READY"
  19. 170 Q$=INKEY$:IF Q$<>" " THEN 170
  20. 175 TTWO=TIMER
  21. 180 CLS
  22. 185 GOSUB 1000
  23. 190 COLOR 15:LOCATE 5,29:PRINT"Ready, ";:COLOR 12:PRINT;N$;:COLOR 15:PRINT;" ?"
  24. 200 COLOR 15:LOCATE 7,27:PRINT "Here are five words."
  25. 210 LOCATE 8,15:PRINT"Let's see if you can put them in alphabetical order."
  26. 220 PRINT
  27. 230 PRINT
  28. 240 FOR X=1 TO 5
  29. 260 LOCATE  ,33:PRINT A$(X)
  30. 270 NEXT X
  31. 280 PRINT:PRINT:PRINT:PRINT
  32. 290 LOCATE  ,24:PRINT"Try it on your paper first."
  33. 300 PRINT
  34. 310 COLOR 14:LOCATE  ,19:PRINT"When you are ready, press the space bar."
  35. 320 Q$=INKEY$:IF Q$<>" " THEN 320
  36. 330 COLOR 15
  37. 340 FOR X=2 TO 5
  38. 350 X$=A$(X)
  39. 360 FOR Y=X-1 TO 1 STEP-1
  40. 370 IF A$(Y)>X$ THEN SWAP A$(Y),A$(Y+1)
  41. 380 NEXT Y
  42. 390 NEXT X
  43. 400 CLS
  44. 410 PRINT:PRINT:PRINT
  45. 440 FOR X=1 TO 5
  46. 450 CNT=1
  47. 460 IF X=1 OR CNT=1 THEN GOTO 470
  48. 470 PRINT
  49. 480 LOCATE ,25:COLOR 6:PRINT "---------------------------":COLOR 15
  50. 490 PRINT:LOCATE  ,25:PRINT"Type word";X;"and press enter."
  51. 500 PRINT
  52. 510 LOCATE  ,25:INPUT " ",B$(X):LOCATE CSRLIN-1,26:PRINT B$(X);
  53. 520 IF B$(X)=A$(X) THEN 540
  54. 530 IF B$(X)<>A$(X) THEN GOTO 760
  55. 540 LOCATE ,42:COLOR 30:PRINT "Correct";
  56. 550 FOR K=1 TO 1000:NEXT K:LOCATE ,42:COLOR 14:PRINT "Correct":COLOR 15
  57. 560 NEXT X
  58. 570 PRINT
  59. 580 LOCATE ,25:COLOR 6:PRINT "---------------------------":COLOR 15
  60. 590 PRINT:PRINT:PRINT
  61. 600 FOR I=1 TO 1300:NEXT
  62. 610 CLS
  63. 620 COLOR 12:LOCATE 7,30:PRINT"Good work, ";N$;"!"
  64. 630 COLOR 15:LOCATE 9,30:PRINT"The correct list is: "
  65. 640 FOR Z=1 TO 5
  66. 650 PRINT:PRINT TAB(36) A$(Z)
  67. 660 NEXT Z
  68. 665 TONE=TIMER
  69. 670 PRINT:PRINT:LOCATE  ,22:COLOR 14:PRINT "Press SPACE BAR to go on or E to end."
  70. 680 Q$=INKEY$:IF Q$<>" " AND Q$<>"e" AND Q$<>"E" THEN 680
  71. 685 TTWO=TIMER
  72. 690 IF Q$=" " THEN CLS: GOTO 180
  73. 700 CLS
  74. 710 COLOR 15:LOCATE 11,22: PRINT "I've enjoyed working with you, ";:COLOR 12:PRINT;N$;:COLOR 15:PRINT;"."
  75. 720 LOCATE 13,31:PRINT "Have a nice day!"
  76. 730 FOR X=1 TO 2500:NEXT X
  77. 750 COLOR 7,0:CLS:END
  78. 760 IF CNT=1 THEN CNT=2:LOCATE ,38:COLOR 2:PRINT"No, try again.":GOTO 480
  79. 770 COLOR 15
  80. 780 LOCATE CSRLIN +1,25:COLOR 7:PRINT"The correct word is ";:COLOR 12:PRINT A$(X);:COLOR 7:PRINT ".":GOTO 560
  81. 1000 REM -----------------------------input word list---------------------
  82. 1010 LST=350:OPEN "WORD.LST" FOR INPUT AS #1
  83. 1020 FOR T=1 TO LST:INPUT #1,WORD$(T):NEXT T:CLOSE #1
  84. 1030 FOR N=1 TO 5
  85. 1040 W=INT(LST*RND(TONE-TTWO*N))+1:A$(N)=WORD$(W)
  86. 1045 WORD$(W)=""
  87. 1050 IF A$(N)="" THEN 1040
  88. 1060 NEXT N
  89. 1110 CLS
  90. 1120 RETURN
  91.